EnigmA Amiga Run 1997 May/EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso/programs/write/module/arexx.module

Text File | 1996-09-18 | 238b | 19 lines

MODULE Arexx;

VAR
  file : STRING;

MENU $menu1;

ITEM $item1_1 ""
  IF GetFile("REXX:","#?.(rexx|wrx)",file) THEN
    IF DoRexx(file,"",file){@ASYNC} THEN
      MessageOk(FORMAT($text1,file));
    END;
  END;
END;

ITEMBAR;

END Arexx.